From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 May 1993 22:12:29 +0000 (+0000)
Subject: (jump-to-register): Don't fail if frame-configuration-p is unbound.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96021
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bf77ce530a39c3ec748fa1f85f0544cecd750b0e;p=emacs.git

(jump-to-register): Don't fail if frame-configuration-p is unbound.
---

diff --git a/lisp/register.el b/lisp/register.el
index 114f25fa8fd..bae40ee165c 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -84,7 +84,8 @@ Argument is a character, naming the register."
   (interactive "cJump to register: ")
   (let ((val (get-register char)))
     (cond
-     ((frame-configuration-p val)
+     ((and (fboundp 'frame-configuration-p)
+	   (frame-configuration-p val))
       (set-frame-configuration val))
      ((window-configuration-p val)
       (set-window-configuration val))